home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / areaco.arc / AREACODE.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-06-15  |  5KB  |  79 lines
  1. areacode
  2. Area Code Lookup
  3. wwwwwwwwwwwwwwp
  4. wwwwwwwwwwwwwwp
  5. Form1
  6. Label2
  7. Area Code:
  8. Label3
  9.     Location:
  10. location
  11. Label1
  12. Time:
  13. ltime
  14. Command1
  15. Look Up Area Code
  16. Form_Click
  17.     areacodes
  18.     timezones
  19.     areanames
  20. numac
  21. loadac
  22. done2
  23. tzhere
  24. Command1_Click
  25. findac+
  26. location
  27. captionr
  28. ltime
  29. @    Form_Load
  30.     ac_ChangeT
  31. selstart
  32.     sellength
  33. mousepointer
  34. tzformat
  35. Thenlocation&
  36.  All the areacodes
  37.  Timezones from GMT
  38.  Name of the Area Codest
  39.  # of areacodes 
  40.  Local time zone
  41.  How we like time/dates formattedi
  42. loadac
  43.    This routine loads in the area code file, which iss
  44.    assumed to be called "ac.dat". The file containss
  45.    two sections.  The first section contains two lines,,
  46.    the first being the local time zone (offset from GMT),,
  47.    and the second line holding the time/date format the user
  48.    prefers..
  49.    The second section contains the list of area codes, one per
  50.    line.  The format is areacode/GMT offset/name
  51.  Location of slashes in text
  52.  Fields of the text
  53.  Say we're busy 
  54. ac.dat
  55.  Open the database
  56.  Read local time zone
  57.  Read prefered format
  58.    Read in the table of areacodess
  59.    First break the line into the three pieces (/ is delimeter)
  60.    Then, assign our arrays the piecese
  61.  Decrement numac as it's past the end of the datai
  62.    Say we're not busy anymore...
  63. Command1_Click
  64.    This routine finds the area code the user has entered, displays the
  65.    location and the time at that location.  No attempt is made to handle
  66.    areacodes which are split across time zones or places that do not
  67.    go onto daylight savings time with the rest of the nation....
  68.  The current areacode as an integera
  69.    We mark the areacode the user entered as "selected", so that afterr
  70.    we finish the user can just start typing in a new area code without
  71.    having to delete the old one...
  72.    Search ...d
  73.  When we find the area code, update the location and local times...
  74.    We didn't find the area code! Beep, erase all text on the display,,
  75.    and open a message box to complain!
  76. Invalid Area Code"
  77. Form_Load
  78.    When the form is first loaded, read in the area code database
  79.